home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh26a.d64 / klang + 3.stimme (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  50 lines
  1. 100 REM--------------------------------
  2. 110 REM KLANGEFFEKTE MIT
  3. 120 REM DYNAMISCHER STEUERUNG
  4. 125 REM DURCH STIMME 3
  5. 130 REM--------------------------------
  6. 140 S=54272
  7. 150 READ A,D,SU,R,C,P,F,G,N,M
  8. 160 POKE S+5 ,16*A +D
  9. 170 POKE S+6 ,16*SU+R
  10. 180 POKE S+2 ,P AND 255
  11. 190 POKE S+3 ,P/256
  12. 200 POKE S+23,0     :REM FR
  13. 210 POKE S+24,128+15:REM ML (S3 AUS)
  14. 220 READ A3,D3,S3,R3,C3,P3,F3,Q
  15. 230 HI=INT(F3/256):LO=F3-256*HI
  16. 240 POKE S+14,LO
  17. 250 POKE S+15,HI
  18. 260 POKE S+16,P3 AND 255
  19. 270 POKE S+17,P3/256
  20. 280 POKE S+19,16*A3+D3
  21. 290 POKE S+20,16*S3+R3
  22. 300 Q=S+Q
  23. 310 F=F/256
  24. 320 GET A$:IF A$="" THEN 320
  25. 330 FOR I=1 TO M
  26. 340 : POKE S+4 ,C OR 1
  27. 350 : POKE S+18,C3 OR 1
  28. 360 : FOR J=1 TO N
  29. 370 :   POKE S+1,F*(1+PEEK(Q)/G)
  30. 380 : NEXT J
  31. 390 : POKE S+4 ,C
  32. 400 : POKE S+18,C3
  33. 410 NEXT I
  34. 420 GOTO 320
  35. 500 REM--------------------------------
  36. 510 REM PARAMETER STIMME 1
  37. 520 DATA 0 , 8, 0, 8:REM A D SU R
  38. 530 DATA 32         :REM CONTROL-BYTE C
  39. 540 DATA 2048       :REM PULSWEITE P
  40. 550 DATA 40000      :REM FREQUENZ F
  41. 560 DATA 500        :REM FAKTOR G
  42. 570 DATA 8          :REM ANZAHL N
  43. 580 DATA 10         :REM ANZAHL M
  44. 600 REM PARAMETER STIMME 3
  45. 610 DATA  0, 8, 0, 0:REM A3 D3 S3 R3
  46. 620 DATA 16         :REM CONTROL C3
  47. 630 DATA 2048       :REM PULSWEITE P3
  48. 640 DATA 10         :REM FREQUENZ F3
  49. 650 DATA 28         :REM MOD.-QUELLE Q
  50.